home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
receipt.exe
/
RECIEPT2.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
23KB
|
734 lines
VERSION 2.00
Begin Form Form2
BackColor = &H00FF0000&
Caption = "Edna's Invoice / Purchase Order"
ClientHeight = 6915
ClientLeft = 675
ClientTop = 2415
ClientWidth = 9600
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 7320
Left = 615
LinkMode = 1 'Source
LinkTopic = "Form2"
ScaleHeight = 461
ScaleMode = 3 'Pixel
ScaleWidth = 640
Top = 2070
Width = 9720
Begin CommandButton Command1
Caption = "Exit"
Height = 330
Index = 3
Left = 7380
TabIndex = 14
Top = 6525
Width = 1905
End
Begin CommandButton Command1
Caption = "New Reciept"
Height = 330
Index = 2
Left = 5025
TabIndex = 11
Top = 6525
Width = 2070
End
Begin CommandButton Command1
Caption = "Print"
Height = 345
Index = 1
Left = 2625
TabIndex = 10
Top = 6525
Width = 2010
End
Begin CommandButton Command1
Caption = "Back"
Height = 330
Index = 0
Left = 300
TabIndex = 9
Top = 6525
Width = 2010
End
Begin PictureBox Picture4
BackColor = &H00C0C0C0&
Height = 690
Left = 30
ScaleHeight = 660
ScaleWidth = 9510
TabIndex = 8
Top = 5745
Width = 9540
Begin VBedit RecievedDate
BackColor = &H00C0C0C0&
CellHeight = 480
CellWidth = 250
CharSet = 16396
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 7410
OnTap = -1 'True
TabIndex = 25
Text = " / / "
Top = 240
Version = 268435458
Width = 2055
End
Begin VBedit SchDate
BackColor = &H00C0C0C0&
CellHeight = 480
CellWidth = 250
CharSet = 16396
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
OnTap = -1 'True
TabIndex = 29
Text = " / / "
Top = 240
Version = 268435458
Width = 2055
End
Begin VHedit DriverSig
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
DelayRecog = -1 'True
Height = 465
InflateBottom = 300
InflateLeft = 300
InflateRight = 300
InflateTop = 300
Left = 5685
MultiLine = 0 'False
TabIndex = 24
Top = 180
Version = 268435458
Width = 1620
End
Begin VHedit CheckSig
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
DelayRecog = -1 'True
Height = 465
InflateBottom = 300
InflateLeft = 300
InflateRight = 300
InflateTop = 300
Left = 3960
MultiLine = 0 'False
TabIndex = 31
Top = 180
Version = 268435458
Width = 1650
End
Begin VHedit LoadSig
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
DelayRecog = -1 'True
Height = 465
InflateBottom = 300
InflateLeft = 300
InflateRight = 300
InflateTop = 300
Left = 2250
MultiLine = 0 'False
TabIndex = 30
Top = 180
Version = 268435458
Width = 1620
End
Begin Label Label11
BackColor = &H00C0C0C0&
Caption = "Recieved By Customer"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 7470
TabIndex = 20
Top = -15
Width = 1905
End
Begin Label Label10
BackColor = &H00C0C0C0&
Caption = "Driver"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 6240
TabIndex = 19
Top = -15
Width = 510
End
Begin Label Label9
BackColor = &H00C0C0C0&
Caption = "Checked By"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 4290
TabIndex = 18
Top = -15
Width = 1020
End
Begin Label Label8
BackColor = &H00C0C0C0&
Caption = "Loaded By"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 2640
TabIndex = 17
Top = -15
Width = 900
End
Begin Label Label7
BackColor = &H00C0C0C0&
Caption = "Scheduled Delivery Date"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 75
TabIndex = 16
Top = -15
Width = 1995
End
End
Begin PictureBox Picture3
BackColor = &H00C0C0C0&
Height = 690
Left = 30
ScaleHeight = 660
ScaleWidth = 9510
TabIndex = 7
Top = 5025
Width = 9540
Begin VBedit CompDate
BackColor = &H00C0C0C0&
CellHeight = 480
CellWidth = 250
CharSet = 16396
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 7410
OnTap = -1 'True
TabIndex = 28
Text = " / / "
Top = 240
Version = 268435458
Width = 2055
End
Begin VBedit NotifiedDate
BackColor = &H00C0C0C0&
CellHeight = 480
CellWidth = 250
CharSet = 16396
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 30
OnTap = -1 'True
TabIndex = 26
Text = " / /"
Top = 240
Version = 268435458
Width = 2070
End
Begin VHedit PickUpSig
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
DelayRecog = -1 'True
Height = 465
InflateBottom = 300
InflateLeft = 300
InflateRight = 300
InflateTop = 300
Left = 2595
MultiLine = 0 'False
TabIndex = 27
Top = 180
Version = 268435458
Width = 4200
End
Begin Label Label6
BackColor = &H00C0C0C0&
Caption = "Order Completed By Date"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Left = 7380
TabIndex = 15
Top = -15
Width = 2130
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "Customer PickUp Signature"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Left = 3465
TabIndex = 13
Top = -15
Width = 2325
End
Begin Label Label4
BackColor = &H00C0C0C0&
Caption = "Customer Notified Date"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 165
Left = 105
TabIndex = 12
Top = -15
Width = 1935
End
End
Begin PictureBox Picture2
BackColor = &H00C0C0C0&
Height = 690
Left = 30
ScaleHeight = 660
ScaleWidth = 9510
TabIndex = 3
Top = 4305
Width = 9540
Begin VBedit SigDate
BackColor = &H00C0C0C0&
CellHeight = 480
CellWidth = 250
CharSet = 16396
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 3960
OnTap = -1 'True
TabIndex = 22
Text = " / / "
Top = 240
Version = 268435458
Width = 2055
End
Begin VHedit MgmtSig
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
DelayRecog = -1 'True
Height = 630
InflateBottom = 300
InflateLeft = 300
InflateRight = 300
InflateTop = 300
Left = 7125
MultiLine = 0 'False
TabIndex = 23
Top = 15
Version = 268435458
Width = 2370
End
Begin VHedit CustSig
BackColor = &H00C0C0C0&
BorderStyle = 2 'Underline
DelayRecog = -1 'True
Height = 630
InflateBottom = 300
InflateLeft = 300
InflateRight = 300
InflateTop = 300
Left = 870
MultiLine = 0 'False
TabIndex = 21
Top = 15
Version = 268435458
Width = 2535
End
Begin Label Label2
BackColor = &H00C0C0C0&
Caption = "Date"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 165
Left = 3540
TabIndex = 5
Top = 465
Width = 375
End
Begin Label Label3
BackColor = &H00C0C0C0&
Caption = "Managment Approval"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Left = 6165
TabIndex = 6
Top = 240
Width = 1005
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "Customer Approval"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 450
Left = 15
TabIndex = 4
Top = 240
Width = 870
End
End
Begin Grid Grid2
Cols = 2
FixedRows = 0
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1905
HighLight = 0 'False
Left = 7350
Rows = 6
TabIndex = 2
Top = 2370
Width = 2220
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
Height = 1905
Left = 30
ScaleHeight = 125
ScaleMode = 3 'Pixel
ScaleWidth = 484
TabIndex = 1
Top = 2370
Width = 7290
End
Begin Grid Grid1
BackColor = &H00FFFFFF&
Cols = 6
FixedCols = 0
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 2310
Left = 30
Rows = 25
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 30
Width = 9540
End
End
Sub Command1_Click (Index As Integer)
Select Case Index
Case 0
Unload Form2
Case 1
MousePointer = 11
For i% = 1 To 1000
Next i%
CustSig.Enabled = 0
MgmtSig.Enabled = 0
SaveInfo
MousePointer = 0
Case 2
x = MsgBox("This will erase current customer data.", 1)
If x = 1 Then
SaveInfo
InitVars
Unload Form2
End If
Case 3
x = MsgBox("This will end your Reciept Session.", 1)
If x = 1 Then
SaveInfo
Unload Form2
End
End If
End Select
End Sub
Sub CompDate_LostFocus ()
If CheckDate%(CompDate) Then
MsgBox "Invalid Completed By Date!!!"
CompDate.SetFocus
End If
End Sub
Sub Form_Load ()
Form2.Show
Form2.WindowState = 2
SigDate.Text = Format$(Now, "mm/dd/yy")
For i% = 0 To 5
Grid1.FixedAlignment(i%) = 2
Next i%
Grid1.Row = 0
Grid1.Col = 0
Grid1.Text = "QTY."
Grid1.Col = 1
Grid1.Text = "UNIT"
Grid1.Col = 2
Grid1.Text = "ITEM NO."
Grid1.Col = 3
Grid1.Text = "DESCRIPTION/COMMENTS"
Grid1.Col = 4
Grid1.Text = "PRICE EACH"
Grid1.Col = 5
Grid1.Text = "EXT."
Grid1.ColWidth(0) = 510
Grid1.ColWidth(1) = 510
Grid1.ColWidth(2) = 1020
Grid1.ColWidth(3) = 5355
Grid1.ColWidth(4) = 900
Grid1.ColWidth(5) = 900
Grid1.ColAlignment(0) = 0
Grid1.ColAlignment(1) = 1
Grid1.ColAlignment(2) = 1
Grid1.ColAlignment(3) = 0
Grid1.ColAlignment(4) = 1
Grid1.ColAlignment(5) = 1
Grid2.ColWidth(0) = 1025
Grid2.ColWidth(1) = 1000
Grid2.ColAlignment(1) = 1
Grid2.FixedAlignment(0) = 2
Grid2.Col = 0
Grid2.Row = 0
Grid2.Text = "SUB TOTAL"
Grid2.Row = 1
Grid2.Text = "TAX"
Grid2.Row = 2
Grid2.Text = "FREIGHT/UPS"
Grid2.Row = 3
Grid2.Text = "GRAND TOTAL"
Grid2.Row = 4
Grid2.Text = "DEPOSIT"
Grid2.Row = 5
Grid2.Text = "BALANCE DUE"
End Sub
Sub Grid1_Click ()
Grid1.SelStartCol = 0
Grid1.SelEndCol = 5
Grid1.SelStartRow = Grid1.Row
Grid1.SelEndRow = Grid1.Row
End Sub
Sub Grid1_DblClick ()
Form3.Show 1
Picture1_Paint
End Sub
Sub Grid2_DblClick ()
Form8.Show
End Sub
Sub Label1_DblClick ()
CustSig.EraseInk = -1
End Sub
Sub Label10_DblClick ()
DriverSig.EraseInk = -1
End Sub
Sub Label3_DblClick ()
MgmtSig.EraseInk = -1
End Sub
Sub Label5_DblClick ()
PickUpSig.EraseInk = -1
End Sub
Sub Label8_DblClick ()
LoadSig.EraseInk = -1
End Sub
Sub Label9_DblClick ()
CheckSig.EraseInk = -1
End Sub
Sub NotifiedDate_LostFocus ()
If CheckDate%(NotifiedDate) Then
MsgBox "Invalid Notification Date!!!"
NotifiedDate.SetFocus
End If
End Sub
Sub Picture1_Click ()
tmp$ = Str$(Grid1.ColWidth(0)) + Str$(Grid1.ColWidth(1))
tmp$ = tmp$ + Str$(Grid1.ColWidth(2)) + Str$(Grid1.ColWidth(3))
tmp$ = tmp$ + Str$(Grid1.ColWidth(4)) + Str$(Grid1.ColWidth(5))
MsgBox tmp$
End Sub
Sub Picture1_Paint ()
Picture1.AutoRedraw = -1
Picture1.FontName = "Small Fonts"
Picture1.FontSize = 7
Picture1.FontBold = -1
Picture1.Print "THIS IS A CONTRACT:";
Picture1.FontBold = 0
Picture1.Print " This merchandise is being ordered to the customers exact specifications, please check "
Picture1.Print " order carefully. The customer verifies that all measurements on this form are correct. Special orders must be verified "
Picture1.Print " prior to ordering-all sales are final-no cancellations-no returns. Payments subject to forfieture if merchandise is not "
Picture1.Print " claimed within 30 days after notification arrival."
Picture1.CurrentY = 45
Picture1.Print " Edna's provides service deliveries only and is not responsible for property damage beyond curbside delivery. If I assist"
Picture1.Print " Edna's with any delivery, it will be at my own risk and I hereby release Edna's from any claims for loss or damage I may"
Picture1.Print " have by reason of my assisting with any delivery."
Picture1.CurrentY = 80
Picture1.Print " Any additional delivery service shall be my sole responsibility. Edna's is not responsible for any damage to property or"
Picture1.Print " injury to persons arising out of Edna's assistance with additional delivery service, and in consideration of such "
Picture1.Print " assistance, I release Edna's from any claims for loss or damage I may have and shall indemnify and hold Edna's "
Picture1.Print " harmless from such claims by third parties."
End Sub
Sub RecievedDate_Change ()
If CheckDate%(RecievedDate) Then
MsgBox "Invalid Recieved By Date!!!"
RecievedDate.SetFocus
End If
End Sub
Sub SchDate_LostFocus ()
If CheckDate%(SchDate) Then
MsgBox "Invalid Scheduled Delevery Date!!!"
SchDate.SetFocus
End If
End Sub
Sub SigDate_Change ()
If CheckDate%(SigDate) Then
MsgBox "Invalid Signature Date!!!"
SigDate.SetFocus
End If
End Sub
